home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / Examples / ggetuser.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-29  |  709b  |  30 lines
  1. /* get a Genesis user */
  2.  
  3. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4. if AddLibrary("rexxsupport.library","rxsocket.library")~=0 then exit
  5.  
  6. prg = ProgramName("NOEXT")
  7.  
  8. parm.0.value="";parm.1.value=""
  9. if ~RMH_ReadArgs("LOGIN,PASSWD") then do
  10.     call PrintFault(IoErr(),prg)
  11.     exit
  12. end
  13.  
  14. if GenesisGetUser("USER",parm.0.value,parm.1.value) then do
  15.     say "--- Global User ---"
  16.     say "Name:   " user.NAME
  17.     say "Passwd: " user.PASSWD
  18.     say "Uid:    " user.UID
  19.     say "Gid:    " user.GID
  20.     say "Gecos:  " user.GECOS
  21.     say "Dir:    " user.DIR
  22.     say "Shell:  " user.SHELL
  23.     say "Flags:  " user.FLAGS
  24.     say "Maxtime:" user.MAXTIME
  25.     say "-------------------"
  26. end
  27. else say prg": no Global User logged in"
  28. exit
  29.  
  30.